home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / languages / m2_part1.lha / modula / amiga / GadTools.mod < prev    next >
Encoding:
Modula Implementation  |  1993-11-22  |  573 b   |  25 lines
  1. (* @B- @P- *)
  2. IMPLEMENTATION MODULE GadTools ;
  3.  
  4. FROM SYSTEM IMPORT ADDRESS ;
  5. IMPORT M2Lib , Intuition ;
  6.  
  7. PROCEDURE GTMENU_USERDATA( menu : ADDRESS ) : ADDRESS ;
  8.   VAR x : POINTER TO ADDRESS ;
  9. BEGIN
  10.   INC( menu , SIZE( Intuition.Menu ) ) ;
  11.   x := menu ;
  12.   RETURN x^
  13. END GTMENU_USERDATA ;
  14.  
  15. PROCEDURE GTMENUITEM_USERDATA( menuitem : ADDRESS ) : ADDRESS ;
  16.   VAR x : POINTER TO ADDRESS ;
  17. BEGIN
  18.   INC( menuitem , SIZE( Intuition.MenuItem ) ) ;
  19.   x := menuitem ;
  20.   RETURN x^
  21. END GTMENUITEM_USERDATA ;
  22.  
  23. BEGIN GadToolsBase := M2Lib.OpenLib("gadtools.library",VERSION)
  24. END GadTools.
  25.